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1 
14-Sep-1984 Disk KSVMGM ASTER: tho + She SUFDELLIN. BLI; rise (1) | 
| 

XTITLE "EDTSWFDELLIN = delete the current Line’ 
MODULE EDTSWFDELLIN ( ! Delete the current Line 
pDENT = *v04-000' ! File: WFDELLIN.BLI Edit: JBS1013 


BEGIN 


eRe RARER AE AREER AERA ARAARAEA AEE AE REHEAT EAE A ATER AERAERAHAARARAE REARS 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
* 
® 
® 
. ® 
:* THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ha * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
'* INCLUSION OF THE ABOVE oF dekote NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
't TRANSFERRED. 7 
H w 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
!t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 

® 

® 

® 

* 

® 

* 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee AEAAAARA REAR AREER ERATE AERA AERA 
' 


'e4 
' FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 


Delete the current Line. If that empties the current bucket, 
delete the bucket also. 


} 
i ENVIRONMENT: Runs at any access mode - AST reentrant | 
i AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 | 
i MODIFIED BY: | 
| 
| 
| 
| 
| 
| 
| 


i 
' 
{ 
! 
' 
' 
' 
{ 
' 
' 
' 
' 
' 
! 1-001 - Original. DJS 23-Feb-1981. This module was created by 
: extract ing routine EDT$$SDEL_CURLN from module EDTWF. 

' 1-002 - Regularize headers. JBS Té-Mar-1 
! 1-003 = Change index for Line nuaber “Agre 8 to 15. SMB 18-Jan-1982 
! 1-004 - Correct IDENT Format. JBS 1 r-1982 

! 1-005 - New screen update logic. 183 1 3-Sep- -1982 

: = Remove EDTSSSET WEL pt 4-Sep-1982 

: - Change the name of delete Line routine. SMB 21-Sep-1982 

; - Modify to use new 4 bf macro, STS 1c t-1982 

/ - Count the number of eo 'eteg Lines s e last nereen update. JBS 21-Oct-1982 

: - ge the handling of EDT$$6 Past INSERTED. JBS 

: - number of recs inserted before setting SCR_REBUILD. SMB 16-Feb-1983 

: - Socrenent the number of records inserted during this insert sequence. JBS 01-Jun-1983 


ee ee eee ee i “80-198 93:35:35 DESSUMSMASTER:CEDT. SRCSWFDELLIN.BLIGI™™ (15 


6089 ] {1-013 = Remove edit 1-012; too many callers don't want this. JBS 01-Jun-1983 
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p-1 
SSBITL Declarations’ 
| TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSSDEL_CURLN : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 


i MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 


NONE 
EXTERNAL REFERENCES: 
In the routine 


0 es Pa 
RC JWFDELLIN.BLI;1 
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EDTSWFDELLIN EDTSWFDELLIN = delete the current Line 16 tase “19 9 VAX-11 Bliss-32 V 4 | 
704-000 EDTSSDEL_CURLN = delete the current Line 14- Sep-19 1984 93: 83: 33 DISKSVMSMASTER: cto 1 SRCSWFDELLIN. BLI; he (3) 
a) G65 | XSBTTL "EDTSSDEL_CURLN - delete the current Line’ | 
; 37 ee? 1 GLOBAL ROUTINE EDTSSDEL_CURLN ! Delete the current Line | ‘ 
; 0) 1 : NOVALUE = : 
; JD 43 1 ; 
; 190 670 1 S++ | ‘ 
: + 9 of ! ; FUNCTIONAL DESCRIPTION: : 
: 198 orf 1} ad routine deletes the current Line from the buffer. Close up the ; 
; 104 674 1! pap in the block by moving i text ys ry the deleted line. If the ‘ 
$ 13% beo2 : } ine is the only one in a bucket, then also delete the bucket. ; 
:  .07 $75 1 | FORMAL PARAMETERS: : 
; 108 of8 1} ‘ 
; 109 679 1! NONE ‘ 
; 110 0680 1! ‘ 
3 4 se? 1 ! IMPLICIT INPUTS: ‘ 
; By 6 ¢ 1! ‘ 
3; 1 683 1! EDTSST_LN_BUF : 
; (116 0684 1! EDTSSL_ =3eC LN ‘ 
3 139 0685 1! EDTS$A_CUR- BUF ‘ 
: 116 0686 1! EDTSSA_Wk_BUK ; 
: (117 0687 1! EDTSSA_ N ; 
; (118 0688 1! EDTSSL_LNO ‘ 
; (119 0689 1! EDTS$S$G_RECS_ INSERTED ‘ 
: 120 0690 1! EDTS$$G_SCR_ ‘ 
: 121 0691 1! EDT$$G_SCR-REBUILD : 
3 4% . B29 : 3 e 
Th: . 93 1 ! IMPLICIT OUTPUTS: ‘ 
> 124 0694 1! ‘ 
; 125 0695 1! ED TSS6_WK MODF D ‘ 
: 126 0696 1! EDTSS$A_CUR_BUF : 
3 if 4 0697 1! EDTS$A_WK_BuUK ; 
: 128 0698 1! EDTSSA_ N ; 
: 129 0699 1! EDT$$A_SEC_POS ‘ 
: 130 0700 1! EDT$$G_RECS_ INSERTED ‘ 
s; Vi 0701 1! EDT$$G_SCR_REBUILD ° 
2. 9 ; bre 1! ‘ 
7 14 1 ! ROUTINE VALUE: : 
> (134 704 1! ‘ 
3; 6135 ROR? 1! NONE ‘ 
; ¥ 106 1; : 
s tor 0707 1 ! SIDE EFFECTS: : 
; «138 108 1! : 
: 139 7 1! NONE ; 
: 140 710 1! : 
> (141 14h 1 !=- : 
; 146 re 1 : 
: (14 71 BEGIN : 
3 61446 714 ‘ 
3; 145 715 o_o. ROUTIN ‘ 
3 146 oe EDTSSWF “DELBU : NOVALUE, ° 
: (14 71 EDTSSRD_NXTLN | : 
; 148 ig EDTSSSECRNGPOS, | : 
: «149 71 EDTSS$SC_DELLN : NOVALUE; 
: 150 $0 
3 151 721 EXTERNAL | 

| 


] 
P 
EOTS¥ERELL IN EDTSWFDELLIN = delete the current Line 15-Sep-1984 96:93:98 VAX=11 Bliss-32 V4.0-74 Page 5 
VO4= EDTSSDEL_CURLN = delete the current Line 14-Sep-1984 12:25:29 DISKSVMSMASTER:CEDT.SRCJWFDELLIN.BLI;1 (3) 
; 7 ¢ 7 § EDTSSA_CUR_BUF : REF TBCB_BLOCK, ! Current text buffer control block | ; 
3; 3 7 EDTSSA_Wk BuK ; ! Pointer to current bucket ‘ 
; 1546 724 REF BCOCK CWF BUKT_SIZE, BYTE] FIELD (WFB_FIELDS), ° 
3 155 725 EDTSSA_WK_LN : REF LIN-BLOCK, ' Pointer fo current Line 3 : 
7 $ ? § EDTS$G_WK MODFD, ! Flag indicating bucket was modified ° 
is 3 ? EDTS$L-LNOO : LNOVECTOR [14], | ; 
; 158 7 8 EDTSSA_SEL_POS, ! Position on the select Line ; 
; 159 7 EDTSSL_SEL_LN, ! Record number of the select Line ‘ 
; 160 730 EDTSST_LN_ BuF ' Current line buffer ; 
; 161 731 EDT$$G_SCR_REBUILD, ! 1 = rebuild the screen data structure from the work file ‘ 
; 166 07 ¢ EDTS$G_SCR_LNS ! Number of Lines in the text area of the screen : 
; 197 4 ? EDTSS$G_RECS_INSERTED; ! Number of records inserted and deleted since the last screen update ; 
Bo ey 2 
: 167 0739 SOURCE : 
> 168 0738 REMAINING; : 
: 1% 0760 § t+ ; 
: 171 0741 i Test for end of buffer. (do not try to delete if at end of block) : 
: 1% ores 5 ; 
> 17% 0744 IF (.EDTSSA_CUR_BUF CTBCB_LINE_ADOR] EQL .EDTS$S$A_WK_BUK CWFB_ENDJ]) THEN RETURN; : 
: ihe Oree 5 ts ; 
> 177 0747 2 | If we are not going to rebuild the screen data structure from the work file, : 
: 178 Bree § 1 tell the screen package that the current Line has been deleted. | : 
; 180 0750 2 : 
ae) 0751 7 IF ( NOT .EDT$$G_SCR_REBUILD) ° 
gf -4 3 oe eee. 
; 184 0734 EDT$$G_RECS_INSERTED = .EDT$S$G_RECS_INSERTED + 1; 
: 196 1543 ; IF (.EDTSS$G_RECS_INSERTED GTR (.EDTS$G_SCR_LNS*2)) THEN EDT$$G_SCR_REBUILD = 1 ELSE EDTS$$SC_DELLN () 
; 188 0758 END; 
we ORE B. 
; 198 Ore =: Update the Line and character count fields 
: 19 76 , SUBLINE (NUMBER_ONE, EDTSSA_CUR_BUF CTBCB_LINE_COUNT)); 
; 134 0764 ,. EDTSSA_CUR_BUF CTBCB_CHAR COUNT] = .EDTSSA_CUR-BUF CTBCB_CHAR_COUNT] - .EDTSSA_WK_LN CLIN_LENGTH]; 
3 :° 
3 138 D766 ; Mark bucket as modified. | 
; 198 O76 , EDTSSG_WK_MODFD = 1; 
; 4 0770 : Calculate the length of text to be deleted. 
: 0@ ak: "SIZE = .EDTSS$A_WK_LN CLIN_LENGTH] + LIN_FIXED_SIZE + 1; 
3 Be oe Source is a pointer to the following information. 
; 06 176 "SOURCE = CHSPLUS (.EDTSS$A_WK_LN, .SIZE); | 
; 208 0778 i Calculate the number of used bytes left in the block. 
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EDTSWFDELLIN EDTS 
vO4-000 EDTS 
; 209 779 
10 780 
1 1 
sO 
14 784 
15 785 
16 7? 8 
17 07 
18 0788 
Be 
sf 078 
$58 $798 
4 0794 
5 0795 
6 0796 
e7 0797 
ss6 0798 
$3 0799 
§ 0 0800 
31 0801 
232 080 
th 080 
34 0804 
53, 0805 
36 0806 
237 0807 
$38 0808 
39 0809 
240 0810 
ee 
t§ O18 
see 0814 
eR 
247 O81? 
248 0818 
49 0819 
50 Bas9 
3] 4 1 
i 
5& base 
55 0825 
56 Ba68 
57 b85 
58 0828 


del 


IF (.REMAINING NEQ 0) 
THEN 


BEGIN 

EDTSSCPY MEM (.REMAINING 
petSSA_ We LN = CHSPTR (.EDTSS$A_WK_BUK, - EDTSSA_CUR_BUF CTBCB_LINE_ADDR)); 
ELSE 


No text after the Line, check to see if bucket is now empty. 


ete the current Line 
delete the current Line 


SOURCE, .EDTSS$A_WK_LN); 


IF _(.EDTSSA_CUR_BUF CTBCB_LINE_ADDR] EQL WFB_FIXED_SIZE) 
EDTSS$WF_DELBUK () 


EDTSSRD_NXTLN (); 


{-1] : 
BEGIN 
0 


END; 


5% 
SUBLINE (NUMBER_ONE, EDTS$L_SEL_LN); 


COUTRANGE) : 
ASSERT (0); 
TES; 


! position to first Line in next bucket 


| Update the select point, if it is after the Line being deleted. 


SAGE FY TOSaeL pares () FROM -1 TO 1 OF 


' Select Line is before current Line, or no select 


' Select Line is current line 


EDTS$A_SEL_POS = CHSPTR (EDT$$T_LN_BUF); 


' Select Line is after current Line 


of routine EDTSSDEL_CURLN 


TITLE EDTSWFDELLIN EDTSWFDELLIN - delete the current 
IDENT \V04-000\ 
-EXTRN EDTSSWF_DELBUK, EDTSSRD_NXTLN 


6 
1b-se -1984 02:05:09 VAX-11 Bliss-32 V4.0-74 Pa 
1a-Sep- 3B 95:93:98 DLEKSVMGHASTERSCEDT SRCTWFDELLIN.BLIGG 2" 
REMAINING = .EDTSSA_WK_BUK CWFB_END] = .EDTSS$A_CUR_BUF CTBCB_LINE_ADDR] - .SIZE; 
Update the end of bucket information. 


EDTSSA_WK_BUK CWFB_END) = .EDTSSA_WK_BUK CWFB_END] - .SIZE; 
! And close up the hole we created. 


< 


mm 
r= 


ee ee ee ee ee ee ee ee 


T$$A_CUR_BUF 
TS$A_WK_CN 
EDT$$A_SEL_POS 
EDTSST_LR_BuF 
UILD 
NS, EDT$$G_RECS_INSERTED 
SHR, PIC,2 


L..RNGPOS 
{Nn 
REB 
L 
E 


VAX-11 Bliss-32 V4.0-74 
B 
K 
K 


-EDTSCODE ,NOWRT, 


222222222 
Qaacacaacacac 
a a a a ae a a 
>< WC DK DK DK DK DK OK OK 
WwW 


-PSECT 


~m 
~ 
© 
a 
o- 
Qs. 
— 
= 
@ 
. 
z 
i 
) 
uw 
a 
“ 
zs 
NO 
Y 
a 
” 
e 
— 
a 
uw 
— 
a 
w 
eH 
w” 
<< 
= 
” 
= 
> 
A 
4 
” 
+ 
a 
an 
orm 
nw 
om 
cowry 
o- 
wv 
coco 
oon 
—— 
‘6 
aa 
oee8 
mm 
se 
wor 
-—— 


OFFC 00000 


te the current Line 
= delete the current Line 


TSWFDELLIN - dele 


ED 
EDTSSDEL_CURLN 


-000 


=z 
—_ 
= 
_ 
tae 
(=) 
> 
& 
— 
oO 
wad 


V 


w -—-wTo ~» w ou OO ToC WMOO ww 
~— mnw oO oOo o~ ~owo ono CoODOO oO 
~ eer ~ ~ ~ eR ~~ EEO @ 
o ooo o o oo oo oo oOoCoCOoO oOo 
i i i a i Ni il i i i ie i i i ei te ee eh eh ed eh ee 
4 
_ 
Ls *) 
a 
7 
~ 
e 
. 
oO 
a 
. 
w 
a 
. 
w 
a 
. 
~ 
ac _— ~~ 
_-_ So ~~ 
Nu Z£oO « a 
[oq - fr Oo a ~z 
“a “> © ab a 
* a a aes . 
> ws ww 25> a ~™M 
so Fa - are wre @ oO ve ws ae 
” f&.if0 Fo 4ae2Qa0 w 2a a ~ ~ = | 
wo a sw Ow N oO wa ac @ 
> wD . > & oS at © « = vw ov 2a ad 
Zz 2@ wu + Qa2a2z a2 wun ‘ ae awe2z oe w 
+ “w»eraenw Wee Ww OD ba pw 4 >. a ne a 
fe 4 &x&7> @2> amin mw w 2 za oD -zZz ~oO h 
> ww woe On a & tio co > ad i NODn- w o~_ 
Verve Oba © Qvow 9 wad <« '{'anOw ~ <r . zs 
eworcorae YVwew *F& #DM WwW ~~ own *MaEeaewo oO + eh 
4IZenszov3s~ YEZAecr Ff RYU B3OCe4—wv3s~uw~2z Zt lh OUlUhM 
we: 6 t cB tf hF ‘oe | — w& fe . eee onc were Ec USC 
oouwed «ma ova9eo a adnannmr ~~ OG = « zz a 
A—AAAY-AP - APAWA W WROOO OM MMW WM FA © & tr Ht > w 
st Oo —— . eww Ow 8 Re OPE “o oO bo 
aC QanaAaTA CA0O-O4-RHOOITITTAHDA O-—- COO WRAWTMTRHOM 
WW le RL ER CUCU TOW Rw BW OY ENE ~~ ORK 


WWWWOO— VT OOD—-NO-— DOOr- — OF- OLN LOK OMIM DH — NO 
SOOO GOK- OCW Soh O- Or 4 OOOO DOS VOC VUQYVUVV OBE NV Or ur 


SOoOSoSOoOK—— <£O—- DON fh COOCOCOMOOVOK— VDA O-— -—OWOOMOSC or 
COOOCOSSVCVOO OWOOOCOCSOOCCOS ££ J LO FOWONOWOOM DOOM OOOO 


OTE UTC) o o 
ooocoeo Oomoeono wo 
ooooo Cecnrne- -—-O 
Sooooo oS So 
Cooooo Oo So 
ooooo o So 
ooooo o oS 
ooooo Oo So 
ooocoo o o 
Oxatowo-OCoo o oo <«t owoOo oO NOOO K——ArRr OK mer co oO 
MAA r- ow CO COMM WwW MM ZOMMUNA Eine on Oo SO 
oO o o o 
w o oS wo wT w [=] 
o oS So -So o oOo So 
So So So So 
o o So So 
So So So So 
o o So So 
oS So o i=] 
So oO So So 
Oo m" Oo NO 
w wow woo 
Oo 
So 
oS 
So 
[=] 
S 
oS 
i=) 
o 


- SS VT YT WT © 


o-~ sO Woo w co 
mm O- Neem & N 
~ wo ccm c- *) 
® oo ooo oO So 
o Perea tata tate *e Fete te Fate Fate %e 
O— 
Qa. 
—s 
ao 
@ 
a 
2 
os 
a | 
| =a 
tas 
} a 
j eS 
3 
| Ne 
wu 4) 
Na ° 
wm a 
oe i 
ol a 
Toa w 
>w 7) 
ws ‘ 
Ne <o 
mac he 
ow w eo) 
| aoe o < re 
an 22a <a 
—-<« 0 wow wy 
-~z 2a ‘ > > 
ow «<a a - « <« 
=z 2s woewn wn 
-> w - 2» 
—-F Oucyu 2 @ . . 
‘~~ Qwe _ ' aaa 
<m Ae *f& 2 aeace a 
<= WMA +1 fa. Coo « 
>a eee +t Oe ' 333 co 
acnief wa fe t+) SB 
uUmuRCOwow A rere v 
‘@me fr YWMMWM 
=s Mims —-§ Eacwx 
oo OCOC-#BHOO QC tte WwW 
Om B2SeG2e"OerBR WwW wuuerZz 
vat a) 
orm 
“= MWMIQ ” 2 = 
Om ls ee ad +aiIiGs 
o-—- jIIMO ee | ed aed 
<«aa3 <qwowowd Jww 
TF VUU vertatovracae 
eoco 
oon 
or 
ss 
aa ory 
oe ® o* of ord ay Py 
Py RAR A f~6S - 
me) o~ od oC - — 
ow 


1 
1 


QvwTOr-- ors 
wOOooooao- BO 


So 
o 


eoao0or ad 
woouoodt 


~Y 
o 


50 
50 
-EDTSCODE + 0000 


- delete the current Line 


00000000G 00 000000006 00 
Routine Base: 


N = delete the current Line 
000000006 00 


z 
=) 
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Lul 
CU 


WF 
$D 
240 bytes, 
th 1 
0830 1 !<BLF/PAGE> 


EDTSWFDE 
EDTSSDEL 


-000 
; Routine Size: 


TSWFDELLIN 


E 
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M 6 


od 
EDTSWFDELLIN EDTSWFDELLIN = delete the current Line “Sep 7 4 02:05:09 VAX-11 Bliss-32 V o| 
042000 EDTSSDEL_CURLN = delete the current Line 12-8 Sep 1382 95:92:98 DISKSVMSMASTER: cto 1 SRC SWFDELLIN. BLI; rise (4) 
: $6 O83 ! END ! of module EDTSWFDELLIN 
: $2 8 ‘ 0 ELUDOM 
; PSECT SUMMARY | 
; Name Bytes Attributes | 
; -EDTSCODE 240 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ae ee ee a Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 11 40 00:00.2 
3: ~$255$DUA28: - SRCJPSECTS.L32;1 2 50 7 00:00.1 
: COMMAND QUALIFIERS 
é OL ISS/CHECK= (FIELD, INITIAL .OPTIAIZE) /MOTRACEBACK/L [SaL 1S8:UFDELLIN/OBJ=08JS :UF DELLIN MSRCS$:WFDELLIN.BLI/UPDATE=(ENHS$: WF DE | 
3; Size: 240 code + 0 data bytes | 
; Run Time: 00:16.3 
3; Elapsed Time: 00:19.3 
3 Lines/CPU Min: 5 
; ney Ah Rade 11988 
: Y Used: 114 pages 
3 ae ation Complete | 
| 
| 
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